home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / logo boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  802b  |  30 lines
  1. 1 rem    logo boot
  2. 10 poke53281,2:poke53280,2
  3. 15 print"[158][147]"
  4. 20 print"   [215]arning!"
  5. 30 print:print
  6. 40 print"[217]ou can [206][207][212] run the [204][207][199][207] routines while"
  7. 50 print"in the [204][207][193][196][211][212][193][210] environment!"
  8. 60 print:print"[208]ress 1 to return to [204][207][193][196][211][212][193][210]."
  9. 70 print:print"[208]ress 2 to exit [204][207][193][196][211][212][193][210] so you can"
  10. 72 print"           run [204][207][199][207]."
  11. 80 print:print"[215]hich?"
  12. 90 getk$:ifk$=""thengosub60000:goto90
  13. 100 poke53280,rnd(1)*15
  14. 110 k=val(k$)
  15. 120 onkgoto62000,63000:goto90
  16. 60000 ifc=0thenc=1:goto60005
  17. 60002 c=0
  18. 60005 ifc=0thenprint"   [215]arning!"
  19. 60010 ifc=1thenprint"   [215]arning!"
  20. 60020 return
  21. 62000 remconnect to actual entery pgm
  22. 62002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  23. 62004 poke198,0:poke631,13:poke632,13:poke198,2:end
  24. 63000 rem    die dead in the water
  25. 63002 print"[147][193]re you sure you want to exit [204][207][193][196][211][212][193][210]?"
  26. 63004 poke198,0:wait198,1:geta$:ifa$<>"y"thenrun
  27. 63006 print"[207][203]... [212]he files are on [211]ide 2."
  28. 63008 print"run :   to re-enter [204][207][193][196][211][212][193][210] now.[145][145][145]"
  29. 63010 end
  30.